home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 14 Bulletin Boards / CNETGM.BIN (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  4KB  |  74 lines
  1. 512 A$="\F1\C1[215]ELCOME TO THE [197][206][212][197][210][208][210][201][211][197]!!  [217]OU[139]":GOSUB40
  2. 513 A$="ARE [195][193][208][212][193][201][206] [203][201][210][203] AND YOUR MISSION IS[139]":GOSUB40
  3. 514 A$="VERY SIMPLE.  [197]LIMINATE ALL [203][204][201][206][199][207][206] WAR[139]":GOSUB40
  4. 515 A$="SHIPS THAT INVADE [213][198][208] <[213]NITED [198]EDERA-[139]":GOSUB40
  5. 516 A$="TION OF [208]LANETS> TERRITORY.[139][139]":GOSUB40
  6. 517 A$="[199][207][207][196][160][204][213][195][203][160][195][193][208][212][193][201][206] "+NA$+"!![139][139]":GOSUB40:F1=8:P1=5:K1=10:T1=2:A1=1:E1=5
  7. 518 Z1=Z1+1:A$="[139][139]\C1[211][212][193][210][196][193][212][197] 8386."+STR$(Z1)+".[139]":GOSUB40:IFE1<1THEN569
  8. 519 IFK1<1THENGOTO570
  9. 520 A$="[208] = [208]HASER[139][198] = [208]HOTONS[139][193] = [193]UXILLIARY [208]OWER[139][215] = [215]ARP [198]ACTOR[139]":GOSUB40
  10. 521 A$="[196] = [211]ELF-[196]ESTRUCT[139][211] = [211]TATS[139][200] = [200]ELP[139][209] = [209]UIT[139][139]":GOSUB40:IFK1<1THEN570
  11. 522 A$="[197]NTER COMMAND => ":GOSUB40:LP=1:GOSUB2200
  12. 523 IFAN$="[215]"THENA$="\F1[197]NTER [215]ARP [198]ACTOR => ":GOSUB40:LP=1:GOSUB2100:W1=VAL(AN$)
  13. 524 IFW1>10THENA$="[211]COTTY REPORTS: [135][195]AP'N, SHE CANOT DO THAT![135][139]":GOSUB40:GOTO518
  14. 525 IFW1<1THENA$="[211]ULU REPORTS, [135][195]APTAIN WE ARE NOT MOV[139]ING[135].[139]":GOSUB40
  15. 526 A$="[139][215]ARP [198]ACTOR ="+STR$(W1)+".[139]":GOSUB40:IFW1>3THENF1=F1-1
  16. 527 IFF1<1THENA$="[211]COTTY REPORTS: [135][215]E'RE OUT OF FUEL![135][139]:GOSUB40:GOTO570
  17. 528 [139]AN$[178]"(null)"[175]P1[177]0[167]A$[178]"ASCIRING (null)LEFT$ATN(null)VAL(null)(null)!!IF":[141]40:P1[178]P1[171]1
  18. 529 [139]P1[179]1[167]A$[178]"LENHECKOV REPORTS: READ(null)EPTEN, (null)HASERS ARE IFOUT!!READIF":[141]40
  19. 530 [139]AN$[178]"(null)"[175]P1[177]2[167]A$[178]"(null)ULU REPORTS: READATN HIT LENAPTAIN!READIF":[141]40:K1[178]K1[171]1
  20. 531 [139]AN$[178]"(null)"[175]P1[179]3[167]A$[178]"(null)ULU REPORTS: READATN CLEAR MISS LENAPTAIN.READIF":[141]40
  21. 532 [139]AN$[178]"ASC"[175]T1[177]0[167]A$[178]"(null)POCK REPORTS: READSTR$IRECT HIT SIRREADIF":[141]40:K1[178]K1[171]2
  22. 533 [139]AN$[178]"ASC"[175]T1[179]1[167]A$[178]"(null)ULU REPORTS: READ(null)OT ENOUGH POWERIFCAPTAIN.READIF":[141]40
  23. 534 [139]AN$[178]"ASC"[175]K1[179]4[167]A$[178]"(null)HURA REPORTS: READ(null)HEY'RE SENDING UP AN (null).(null).(null).IF":[141]40
  24. 535 [139]AN$[178]"ASC"[167]T1[178]T1[171]1
  25. 536 [139]AN$[178]"ATN"[175]A1[178]1[167]P1[178]5:A$[178]"IF(null)COTTY REPORTS: READATNYE ATNYE SIR.READIF":[141]40
  26. 537 [139]AN$[178]"STR$"[167][137]560
  27. 538 [139]AN$[178]"(null)"[167][141]550
  28. 539 [139]AN$[178]"LEFT$"[167][141]580
  29. 540 [139]AN$[178]"(null)"[167]A$[178]"(null)UITERS NEVER WIN!!IFIF":[141]40:[137]1300
  30. 541 S1[178][181]([187](1)[172]5)[170]1
  31. 542 [139]S1[178]1[167]A$[178]"(null)POCK REPORTS: READ"[170][196](K1)[170]" ENEMY SHIPSIFAPPROACHING!READIF":[141]40
  32. 543 [139]S1[178]2[167]A$[178]"(null)ULU REPORTS: READ(null)HEY HIT US LENAPTAIN!!READIF":[141]40:E1[178]E1[171]1
  33. 544 [139]S1[178]3[167]A$[178]"(null)POCK REPORTS: READSTR$AMAGE TO OUR DEFLEC-IFTOR'S SIR.READIF":[141]40
  34. 545 [139]S1[178]4[167]A$[178]"(null)COTTY REPORTS: READLENAP'N!! MY POORIFENGINES!READIF":[141]40
  35. 546 [139]S1[178]5[167]A$[178]"(null)POCK REPORTS: READ(null)(null)RIGHT$(null)CHR$(null)(null)'(null) MOVING OUT OFIFRANGE CAPTAIN.READIF":[141]40
  36. 547 [139]AN$[178]""[167]A$[178]"STR$O SOMETHING!!IF":[141]40
  37. 548 [139]TR$[179]""[167]47000
  38. 549 [137]518
  39. 550 A$[178]"\F1VAL(null)(null)VAL(null)(null)(null)RIGHT$(null)VALCLOSE(null)(null)ATN(null)(null)(null)CLOSE(null)VAL(null)(null)(null)(null):IFIF":[141]40
  40. 551 A$[178]"(null)HASERS         ="[170][196](P1)[170]".IF":[141]40
  41. 552 A$[178]"(null)ARP (null)OWER      ="[170][196](F1)[170]".IF":[141]40
  42. 553 A$[178]"(null)HOTONS         ="[170][196](T1)[170]".IF":[141]40
  43. 554 A$[178]"(null)LINGON (null)HIPS   ="[170][196](K1)[170]".IFIF":[141]40
  44. 555 [139]P1[179]3[167]A$[178]"(null)OU ARE LOW ON (null)LEFT$ATN(null)VAL(null) POWER, TRY ATN(null)(null)-IFRIGHT$(null)(null)ATN(null)(null)!IF":[141]40
  45. 556 A$[178]"(null)OU HAVE"[170][196](T1)[170]" (null)LEFT$(null)(null)(null)(null)'(null) LEFT.IF":[141]40
  46. 557 [139]A[178]1[167]A$[178]"(null)OU CAN STILL USE ATN(null)(null)RIGHT$(null)(null)ATN(null)(null)CLOSEPOWER.IF":[141]40
  47. 558 [139]E1[179]1[167]A$[178]"VAL(null)(null)VAL(null)(null)(null)RIGHT$(null)VALCLOSESTR$VAL(null)(null)(null)(null)(null)VALSTR$!!IF":[141]40:[137]570
  48. 559 A$[178]"IFVALNTERPRISE CAN TAKE ONLY"[170][196](E1)[170]" MORE HITS!!IF":[141]40:[142]
  49. 560 A$[178]"\B8(null)VAL(null)ASCCLOSESTR$VAL(null)(null)(null)(null)LEN(null)!!!IFIF":[141]40
  50. 561 A$[178]"(null)HERE ARE"[170][196](K1)[170]" (null)(null)RIGHT$(null)CHR$(null)(null) SHIPS LEFT.IF":[141]40
  51. 562 A$[178]"(null)OU CAN DESTROY THEM ALL BY BLOWING UPIF":[141]40
  52. 563 A$[178]"THE VAL(null)(null)VAL(null)(null)(null)RIGHT$(null)VAL.  ATNT LEAST YOU WILL IF":[141]40
  53. 564 A$[178]"HAVE THE SATISFACTION OF KILLING THEM.IF(null)RESS READSTR$READ TO STR$VAL(null)(null)(null)(null)LEN(null)!!IF=>"
  54. 565 [141]40:LP[178]1:[141]2200
  55. 567 [139]AN$[179][177]"STR$"[167]A$[178]"(null)CLENOY SAYS: READ(null)HAT WAS CLOSE MID$IM!!IF":[141]40:[137]518
  56. 568 A$[178]"\B8\F1(null)HE VAL(null)(null)VAL(null)(null)(null)RIGHT$(null)VAL IS BLOWN TO BITSIF ALONG WITH THE (null)(null)RIGHT$(null)CHR$(null)(null)(null).IF":[141]40
  57. 569 A$[178]"(null)HE VAL(null)(null)VAL(null)(null)(null)RIGHT$(null)VAL HAS BEEN DESTROYED!!!IF":[141]40
  58. 570 [139]K1[179]1[167]A$[178]"(null)OU HAVE (null)(null)(null) LENAPTAIN \V2!!!!IF":[141]40
  59. 571 [139]K1[177]0[167]A$[178]"(null)OU HAVE LOST LENAPTAIN \V2...IF":[141]40
  60. 572 A$[178]"RIGHT$ HOPE YOU ENJOYED YOUR VOYAGE AND IFRETURN AGAIN SOON....IF":[141]40
  61. 573 A$[178]"IFIF(null)HIS PROGRAM WAS MADE BY MID$RIGHT$(null) (null)ATNCHR$(null)VAL(null)IF":[141]40
  62. 574 A$[178]"RIGHT$F YOU WOULD LIKE A COPY OF IT, CALLIF":[141]40
  63. 575 A$[178]"THE (null)RIGHT$CHR$LEFT$(null)LEFT$(null)(null)(null)VAL 961-7964.IFIF":[141]40.":GOSUB40:RETURN
  64. 576 GOTO1300
  65. 577 :
  66. 578 :
  67. 579 :
  68. 580 A$="\F1\B3[195][207][205][208][213][212][197][210][160][206][207][215][160][193][195][212][201][214][197]:[139][139]":GOSUB40
  69. 581 A$="   [200]ELLO [195]APTAIN \V2.  [217]OUR MISSION IS[139]TO DESTROY ALL ENEMY ":GOSUB40
  70. 582 A$="[203][204][201][206][199][207][206] SHIPS.[139][139]   [213]SE YOUR [208][200][193][211][197][210][211] AS MUCH AS POSSIBLE[139]":GOSUB40
  71. 583 A$="THEN SWITCH TO [208][200][207][212][207][206][211].  [201]F YOU ARE[139]":GOSUB40
  72. 584 A$="RUNNING LOW ON [208][207][215][197][210] THEN TRY [193][213][216][201][204]-[139]":GOSUB40
  73. 585 A$="[204][193][210][217].  [212]HAT IS ALL THERE IS TO IT.[139]":GOSUB40:RETURN
  74.